

		*APPENDIX 16: Brexit 
	
  
 
 
		cd "$data"
		use "panel.dta", clear 
		cd "$data/estimates"
		
		xtset id vague 
		
		eststo m1: xtreg leftRightW i.vague if pid6==2 & brexitnochange==1, fe
		margins, at(vague=(1 2 3 4 5 6 7 8 9 10 11 12 15 16 17 18 19 20 21 22 23)) saving(results22, replace)
		
		
		cd "$data/estimates"
		use "results22.dta", clear 
		
		drop _deriv _term _predict _se_margin _statistic _pvalue 
		
		rename _margin b
		rename _ci_lb b_lower 
		rename _ci_ub b_upper 
		rename _at vague_updated 
		
		
		tsset _at1 
		twoway (tsline b, lcolor(cranberry%60) lpattern(dash)) (tsline b_lower, lcolor(cranberry%60) lpattern(solid)) (tsline b_upper, lcolor(cranberry%60)), legend(off) xline(6.5, lpattern(solid) lcolor(gs6%70)) tlabel(#30, labels labsize(vsmall) angle(vertical) valuelabel) ttitle("") graphregion(margin(5 5 15 5)) title("") yscale(range(1(1)5)) ytick(1 2 3 4 5) ylabel(1 2 3 4 5)  
		
		graph save "${figures}/Figure16_1.gph",replace 
		
		



 
 